home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 February / 1990-02.d64 / 64 contents (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  68 lines
  1. 10 rem copyright 1990 compute! publications, inc. - all rights reserved
  2. 20 poke55,0:poke56,peek(46)+4:clr:print"[147][159]"tab(9)"one moment, please..."
  3. 30 poke53280,0:poke53281,0:poke650,128:dima(70)
  4. 40 forz=0to9:a(z+48)=z:a(z+61)=z+6:next:forz=1to7:readb:next
  5. 50 forz=49152to49879:reada$:q=16*a(asc(a$))+a(tte str$isk often"
  6. 80 [153]" features programs which write data"
  7. 90 [153]" to the disk. lenopy those programs to"
  8. 100 [153]" another disk - this disk is write"
  9. 110 [153]" protected."
  10. 120 [153]"      (NULL)(NULL)val(NULL)(NULL) atn(NULL)(NULL) (NULL)val(NULL) asc(NULL)(NULL) (NULL)left$val (NULL)val(NULL)(NULL)"
  11. 130 [161]mt$:[139]mt$[178]""[167]130
  12. 140 [142]
  13. 150 [151]53282,8:[151]53283,1:[151]53284,6:[151]53280,15:[151]53281,15
  14. 155 [153]"load":[153][163]12)"just a moment..."
  15. 160 [141]530
  16. 170 sp$[178]"                                      "
  17. 180 a$[178]"table of contents for "[170]mo$[170]" 1990":cx[178]21[171][195](a$)[173]2
  18. 190 z$[178]"":a$[178][200](sp$,cx)[170]a$[170]sp$:[129]i[178]1[164]40
  19. 200 z$[178]z$[170][199]([198]([202](a$,i))[170]128):[130]
  20. 210 np[178][181](it[173]8):cp[178]0
  21. 220 [141]20
  22. 230 [151]53265,[194](53265)[176]64
  23. 240 [151]53280,15:[151]53281,15
  24. 250 [153]"loadreturnstop----------------------------------------";
  25. 260 [153]"closecloseclosecloselen(NULL)(NULL)(NULL)(NULL)(NULL)valgetthen(NULL)closechr$atn(NULL)val(NULL)(NULL)valcloseasc(NULL)(NULL)close(NULL)left$valclose>=freclosecloseclosecloseclose";z$;
  26. 270 [153]"closecloseclosenotlenstepclose>posposorcloselen(NULL)(NULL)(NULL)(NULL)(NULL)valgetclose(NULL)(NULL)peek(NULL)right$lenatn(NULL)right$(NULL)(NULL)(NULL)*right$(NULL)len^closecloseclose";
  27. 280 [153]"waitstop----------------------------------------";
  28. 290 s[178]cp[172]8:e[178]cp[172]8[170]7:[139]e[177]it[167]e[178]it
  29. 300 [129]i[178]s[164]e:[153]"close";[199](177[170]i[171]cp[172]8);"closepoke";n$(i);
  30. 310 [153][200](sp$,36[171][195](n$(i)));
  31. 320 [153]"waitstop----------------------------------------";
  32. 330 [130]
  33. 340 [139]np[170]1[178]1[167]xz[178]1
  34. 350 [153]"(NULL)(NULL)val(NULL)(NULL)close>/freclose(NULL)(NULL)close(NULL)(NULL)atnstr$closelen(NULL)(NULL)(NULL)val(NULL)(NULL)(NULL)(NULL)str$right$(NULL)chr$close(NULL)(NULL)(NULL)chr$(NULL)atn(NULL)close":[139]xz[178]1[167]380
  35. 360 [153]"this is page #";cp[170]1;"of";np[170]1
  36. 370 [153]"press (NULL)val(NULL)(NULL)(NULL)(NULL)wait for next page"
  37. 380 [161]a$:[139]a$[179][177][199](13)[175](a$[179]"1"[176]a$[177]"8")[167]380
  38. 390 [139]xz[178]1[175]a$[178][199](13)[167]380
  39. 400 [139]xz[178]1[167]430
  40. 410 [139]a$[178][199](13)[167]cp[178]cp[170]1:[139]cp[177]np[167]cp[178]0
  41. 420 [139]a$[178][199](13)[167]230
  42. 430 fv[178]([198](a$)[171]48):fv[178]fv[170]7[172](fv[177]8)
  43. 440 c[178]fv[170]cp[172]8[171]1:[139]c[177]it[167]380
  44. 450 [151]53265,27:[158]65409
  45. 455 [151] 53280,15:[151]53281,15
  46. 460 [153]"returnlistload";[199](34);f$(c);[199](34);",8":i$[178]"run"
  47. 470 [129]i[178]1[164][195](i$):[151]842[170]i,[198]([202](i$,i)):[130]
  48. 480 [151]53280,15:[151]53281,15:[153]"";
  49. 490 [153][163]18[171][195](f$(c))[173]2[171]4)"loading ";[199](34)f$(c)[199](34)
  50. 500 [153]"           please stand bylist"
  51. 510 [151]842[170]i,13:[151]842[170]i[170]1,154:[151]842,13:[151]208,i[170]1:[128]
  52. 520 [128]
  53. 530 [159]15,8,15,"i0"
  54. 540 [159]1,8,8,"0:128 contents,s,r":[132]15,en,em$:[139] en[177]0 [167] 580
  55. 550 [132]1,mo$:[132]1,it:[134]n$(it),f$(it)
  56. 560 [129]i[178]0[164]it:[132]1,n$(i):[132]1,f$(i):[130]
  57. 570 [160]1:[160]15:[142]
  58. 580 [160]1:[160]15
  59. 590 [153]"loadlenan't read (NULL)able of lenontents"
  60. 600 [153]"str$isk valrror:";en;em$
  61. 610 [153]"lenheck:"
  62. 620 [153]"1) lenorrect disk inserted?
  63. 630 print"2) [201]s drive door closed?
  64. 640 [153]"3) atnll cables attached?"
  65. 650 [153]"(NULL)emove, then re-insert disk, press any  key to try again."
  66. 660 [161]a$:[139]a$[178]""[167]660
  67. 670 [138]
  68.